#Include 'Protheus.ch'

/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! MIL10G02                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! Gatilho para buscar o caminho da imagem do produto      !
!                  ! acabado                                                 !
+------------------+---------------------------------------------------------+
!Autor             ! TSC630 - Marcelo de Conto                               !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 10/12/2012                                              !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/

User Function MIL10G02()
	Local cRet		:= ""
	//Local cMV_MIL	:= GETMV("ML_CAMMIL")
	//M->B1_ZIMGMIL := cGetFile('Imagem jpg  (*.jpg) | *.*',OemToAnsi('Selecione o Arquivo'),0,cMV_MIL,.f.,GETF_RETDIRECTORY,.t.)
	M->B1_ZIMGMIL := cGetFile( 'Imagens|*.jpg'    ,'Imagens' , 1, , .F.,,.T., .T. )
Return